PCGUIA 2010 Software/Programs/PCGuia_programas.iso/Software/Utils/Universal Viewer/UniversalViewer.exe/Plugins/Syn2/HL/Visual Basic.lcf

Text File | 2007-12-12 | 11.5 KB | 495 lines

object SyntAnalyzer3: TLibSyntAnalyzer
  Formats = <
    item
      DisplayName = 'Default'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      FormatType = ftCustomFont
    end
    item
      DisplayName = 'Symbol'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'Number'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'String'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      DisplayName = 'Identifier'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      DisplayName = 'Reserved word'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'Comment'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold, fsItalic]
    end
    item
      DisplayName = 'Preprocessor'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      DisplayName = 'Line separator'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      BgColor = clRed
    end
    item
      DisplayName = 'Sub background'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      BgColor = 15663082
      FormatType = ftBackGround
    end
    item
      DisplayName = 'Marked block'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlightText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      BgColor = clHighlight
      FormatType = ftColor
    end>
  TokenRules = <
    item
      DisplayName = 'String'
      StyleName = 'String'
      TokenType = 4
      Expression =
        '#if only one " string to end '#13#10'#of line will be highlighted, '#13#10'#' +
        'otherwise after closing it '#13#10'#string will not be highlighted '#13#10'"' +
        '.*?("|$)'#13#10
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'end'
      StyleName = 'Identifier'
      TokenType = 2
      Expression = 'end'#13#10
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Any name'
      StyleName = 'Identifier'
      TokenType = 2
      Expression = '#first charecter can'#39't be digit'#13#10'[a-z_]\w*'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Float'
      StyleName = 'Number'
      TokenType = 6
      Expression =
        '#with exp. dot is optional '#13#10'\d+ \.? \d+ e [\+\-]? \d+ |'#13#10'#witho' +
        'ut exp. dot is required'#13#10'\d+ \. \d+'#13#10' '
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Integer'
      StyleName = 'Number'
      TokenType = 5
      Expression = '#any sequence of digits'#13#10'\d+'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Comment'
      StyleName = 'Comment'
      TokenType = 1
      Expression = '#all chars after '#39' to end of line'#13#10#39'.*'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'HEX'
      StyleName = 'Number'
      TokenType = 7
      Expression = '#Hex is started with $ sign'#13#10'\$[\da-f]+'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Symbol'
      StyleName = 'Symbol'
      TokenType = 3
      Expression = '[/,\.;:\(\)=<>\+\-&%\$]+'
      ColumnFrom = 0
      ColumnTo = 0
    end>
  BlockRules = <
    item
      DisplayName = 'Key words'
      StyleName = 'Reserved word'
      BlockType = btTagDetect
      ConditionList = <
        item
          TagList.Strings = (
            'addressof'
            'alias'
            'and'
            'appactivate'
            'as'
            'beep'
            'binary'
            'boolean'
            'byref'
            'byte'
            'byval'
            'call'
            'case'
            'chdir'
            'chdrive'
            'choose'
            'close'
            'const'
            'currency'
            'date'
            'decimal'
            'declare'
            'deletesetting'
            'dim'
            'do'
            'doevents'
            'double'
            'each'
            'else'
            'elseif'
            'empty'
            'end'
            'enum'
            'eqv'
            'erase'
            'error'
            'event'
            'exit'
            'filecopy'
            'for'
            'friend'
            'function'
            'get'
            'gosub'
            'goto'
            'if'
            'imp'
            'implements'
            'in'
            'input'
            'integer'
            'is'
            'kill'
            'let'
            'lib'
            'like'
            'line'
            'load'
            'lock'
            'long'
            'loop'
            'lset'
            'new'
            'next'
            'not'
            'null'
            'object'
            'on'
            'optional'
            'or'
            'paramarray'
            'private'
            'property'
            'public'
            'return'
            'select'
            'set'
            'single'
            'static'
            'step'
            'stop'
            'string'
            'sub'
            'switch'
            'then'
            'to'
            'type'
            'typeof'
            'unlock'
            'until'
            'variant'
            'wend'
            'while'
            'with'
            'withevents'
            'write'
            'xor')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Sub begin line break'
      StyleName = 'Line separator'
      BlockType = btLineBreak
      ConditionList = <
        item
          TagList.Strings = (
            'end')
          CondType = tcNotEqual
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'sub')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'end')
          CondType = tcNotEqual
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Sub end line break'
      StyleName = 'Line separator'
      BlockType = btLineBreak
      ConditionList = <
        item
          TagList.Strings = (
            'sub')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'end')
          TokenTypes = 4
          IgnoreCase = True
        end>
      LinePos = lbBottom
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Sub start'
      StyleName = 'Sub background'
      BlockName = 'Sub start'
      NotParent = True
      ConditionList = <
        item
          TagList.Strings = (
            'end')
          CondType = tcNotEqual
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'sub')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'end')
          CondType = tcNotEqual
          TokenTypes = 4
          IgnoreCase = True
        end>
      BlockEnd = 'Sub end'
      Highlight = True
      NameFmt = '%s1 %s0'
      DynHighlight = dhRange
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Sub end'
      BlockName = 'Sub start'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TagList.Strings = (
            'sub')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'end')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Begin'
      ConditionList = <
        item
          TagList.Strings = (
            'end')
          CondType = tcNotEqual
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'function'
            'if'
            'property'
            'select'
            'type'
            'with')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'end')
          CondType = tcNotEqual
          TokenTypes = 4
          IgnoreCase = True
        end>
      IdentIndex = 1
      BlockOffset = 1
      BlockEnd = 'End'
      DisplayInTree = False
      HighlightPos = cpAny
      CollapseFmt = '%s1 %s0'
      IgnoreAsParent = False
    end
    item
      DisplayName = 'End'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TokenTypes = 4
        end
        item
          TagList.Strings = (
            'end')
          TokenTypes = 4
          IgnoreCase = True
        end>
      SameIdent = True
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Block comment'
      BlockName = 'Block comment'
      NotParent = True
      ConditionList = <
        item
          TokenTypes = 2
        end>
      BlockEnd = 'Block comment end'
      DisplayInTree = False
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Block comment end'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TokenTypes = 509
        end
        item
          TokenTypes = 2
        end>
      BlockOffset = 1
      HighlightPos = cpAny
      IgnoreAsParent = False
    end>
  CodeTemplates = <>
  SubAnalyzers = <>
  SampleText.Strings = (
    #39' Syntax highlighting'
    'Function PrintNumber'
    '  Dim Number'
    '  Dim X      34.4e+5'
    ''
    '  Number = 123456'
    '  Response.Write "The number is " & number'
    '             '
    '  For I = 0 To Number'
    '    X = X + &h4c'
    '    X = X - &o8'
    '    X = X + 1.0'
    '  Next'
    ''
    '  I = I + @;  '
    'End Function')
  TokenTypeNames.Strings = (
    'Unknown'
    'Comment'
    'Identifier'
    'Symbol'
    'String'
    'Integer const'
    'Float const'
    'Hex const'
    'Char const')
  MarkedBlockStyle = 'Marked block'
  DefaultStyleName = 'Default'
  Extentions = 'bas'
  LexerName = 'Visual Basic'
  LineComment = #39
end